Attributes Property Example

This example displays the Attributes property for Field, Relation, and TableDef objects in the Northwind database.

Sub AttributesX()

    Dim dbsNorthwind As Database
    Dim fldLoop As Field
    Dim relLoop As Relation
    Dim tdfloop As TableDef

    Set dbsNorthwind = OpenDatabase("Northwind.mdb")

    With dbsNorthwind

        ' Display the attributes of a TableDef object's 
        ' fields.
        Debug.Print "Attributes of fields in " & _
            .TableDefs(0).Name & " table:"
        For Each fldLoop In .TableDefs(0).Fields
            Debug.Print "  " & fldLoop.Name & " = " & _
                fldLoop.Attributes
        Next fldLoop

        ' Display the attributes of the Northwind database's 
        ' relations.
        Debug.Print "Attributes of relations in " & _
            .Name & ":"
        For Each relLoop In .Relations
            Debug.Print "  " & relLoop.Name & " = " & _
                relLoop.Attributes
        Next relLoop

        ' Display the attributes of the Northwind database's 
        ' tables.
        Debug.Print "Attributes of tables in " & .Name & ":"
        For Each tdfloop In .TableDefs
            Debug.Print "  " & tdfloop.Name & " = " & _
                tdfloop.Attributes
        Next tdfloop

        .Close
    End With

End Sub